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program operators (input, output); 
constant 

enabled = true; 
disabled = false; 
inside = true; 
outside = false; 
end_of_list = -1; 



type 



contour_nurnber = O..max_contour_number; 
childjist = array[1..maxchildren] of co ntour_n umber 
pointer_to_child_!ist = t childjist; 

children: array[contour_number] of pointer_to_chi!d_list; 
parent#: array[contour_numberj of contour_number; 
number of children: array[contour_numberj of integer; 
most_recently_created#: contour_numbe r; 
contour_status: array[contour_number] of boolean; 
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procedure addjisted_children(n:contour_number;clist:pointer_to_child_list); 

{details are omitted} 
procedure remove Jisted_children(n:contour_number;clist:pointer_to_childjist); 

{details are omitted} 
function are_children(n:contour_number;clist:pointer_to_child_list);boolean- 

{details are omitted} 
function in_!ist{n:contour_number;clist:pointer_to_childjist);boolean; 

{details are omitted} 
function list_containing_oniy(n:contour_number):pointer_to_child_!ist; 
var n_as_list: pointer_to_chiidJist; 
begin 

new{n_as_list); 
n_as_listt[1]:= n; 
n_as_list t [2]:» end_of_list; 
list_containi ng_only > n_as_list; 

end; 
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procedure put_e2(n: contour_number); 
begin 

if (contour_status[n] = disabled) then go to error; 
create_new_coniour; 

addjisted_childred(njist_containing_only(most_recentiy_aeated#}); 

end; 
b 

procedure put_eO(n: contour__number); 
begin 

if {(contour_status[n] = disabled) or not aJI_successor_disabled{n)) 

then goto error; 
contour_status[n]:= disabled; 

end; 
c 

procedure put_e1_divide{n:contour_nurnber); ciist: pointer_to_child_list; insiderboolean); 
begin 

if {(contour_status[n] = disabled) or (coniour_status[parent#fn]]=disabIed)) 

then goto error; 
create_new_contour; 

addJisted_children(most_recently_created#, ciist); 
if<not inside and arejchildren{parent#[n], ciist) 
and not in_list(n, list)) or {ciist = nil)) ) 
then begin 

remove Jisted_children(parent#(n3, cfist); 
add iistid_children(njBt_containing_only(most_recently_created#)); 
end ~ 

else if {inside and(are_children(n, ciist) or (ciist = nil))) 
then begin 

removeJisted_children(n, ciist); 
addjistedj;hildren{parerrt#(nyistj^ 
end 
else go 1o error; 

end; 
d 

procedure put_e1_merge{c1:contour_number; c2:contour_number); 
begin . f ^ contour ^ status j c1 j _ disabled) or (corttour_status[c2] = disabled)) 
then goto error; 
if (d = parent#[c2D then 

addjisted_children(parent#[c1 ], children[c2J) ; 
else if (parent#tc1]= parent#[c2j then 

add_listed_chiidren(c1 , children[c2]); 
eise go to error; 

remove Jisted_child(parent#{c2], list_containing_only(c2)); 
contour_status{c2]:= disabled; 

end; 
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1. PUT_E2(0); 

2. PUT_E2(1); 

3. PUT_E1_DIVIDE(1, nil, INSIDE); 

4. PUT_E1_DIVIDE(2, nil, INSIDE); 

5. PUT_E2(2); PUT_E2(4); 

6. PUTJE1_MERGE<1,4); 

7. PUT_E2(0); 

8. PUT_E1_DIVIDE{3, list_containing_only(7), OUTSIDE); 

9. PUT_E1_MERGE(3, 8); PUT_E0(7); PUT_E0(3); 

10. PUT_E1_MERGE(1,2); 

11. PUT_E0(5); 

12. PUT_E1_MERGE(1,6); 

13. PUT_E0(1); 



FIG. 13 



F(x,t) 




FIG. 14 



POINT 



FIG. 15 



oo 

GO 



GUIDING CURVE 



FIG. 16 




1 



FIG. 18 



W W II 1 ,1 , I. I trnll 1 




FIG. 19 




FIG.21 




FIG.22 



38 

FIG.24 




FIG.27 



NETWORK- 



POLYGON OBJECT 
STORAGE 



102 



OBJECT 

ENCODING 

APPARATUS 



OBJECT OBTAINING 
UNIT 







FUNC. SETTING UNIT 



ORIGIN DEFINING 
UNIT 



DISTANCE CALC. 
UNIT 



ENCODING UNIT 



GEOMETRY 
COMPRESSION 



TOPOLOGY 
COMPRESSION 



ENCODED DATA 
STORAGE 







SHAPE COMPONENT 
DECOMPOSING UNIT 











ENCODED DATA 
OUTPUT UNIT 



-104 

-106 
^-108 
"M10 

-112 

-114 

^-116 

^118 
120 



-122 



■100 



-NETWORK 



ENCODED DATA 
STORAGE 



122 



OBJECT 

DECODING 

APPARATUS 



DECODING UNIT 



GEOMETRY 
DECODING UNIT 



TOPOLOGY 
DECODING UNIT 



ENCODED DATA 
OBTAINING UNIT 






SHAPE COMPONENT 
EXTRACTING UNIT 











DECODED DATA 
OUTPUT UNIT 



-202 
-204 

-206 
~^208 

"^■210 
212 



DECODED DATA —214 
STORAGE 



FIG.29 



